home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / rpgf_pc2.exe / TSTIN2.RPF < prev    next >
Text File  |  1990-04-17  |  601b  |  33 lines

  1. -- TSTIN2.RPF -- Test RPG/free input file 2
  2.  
  3. -- Note: This does NOT generate a compilable RPG III program
  4. --       It just generates a file for comparison with TSTOUT.RPG
  5.  
  6. /DEFINE true        '1'
  7. /DEFINE numeric     *IN77
  8. /DEFINE not_numeric numeric <> true
  9.  
  10. DCL    0  sflrrn  LEN(4 0)
  11.  
  12. TESTN prmdat ALLNUM(numeric) -- Check for valid date
  13. IF not_numeric
  14.    savsys = 0
  15. ENDIF
  16.  
  17. Total = Base *  -- A two-line statement    +
  18.     Rate
  19. /EXEC SQL
  20.     SELECT * 
  21.       FROM cust
  22.      WHERE custid = inputid
  23. /END-EXEC
  24. /FIX
  25. 12345C                     RETRN
  26. /FREE
  27. a = b - -3
  28. /Data
  29. **
  30. Data line
  31.  
  32.  
  33.